home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / tests / break.tst < prev    next >
Text File  |  1999-09-16  |  2KB  |  98 lines
  1. // for in macro
  2. //--------------------------------------
  3. deff('[k]=tt1()','k=0,for i=1:5 ,k=k+1;if k=3 then break,end,end,k=k+1')
  4. if tt1()<>4 then pause,end
  5. comp(tt1)
  6. if tt1()<>4 then pause,end
  7. clear tt1
  8.  
  9. deff('[k]=tt1()',[
  10. 'k=0,';
  11. 'for i=1:5 ,';
  12. '  k=k+1;';
  13. '  if k=3 then break,end,';
  14. '  if k=-1 then 1,end,';
  15. 'end,k=k+1'])
  16. if tt1()<>4 then pause,end
  17. comp(tt1)
  18. if tt1()<>4 then pause,end
  19.  
  20. clear tt1
  21.  
  22. deff('[k]=tt1()',[
  23. 'k=0,';
  24. 'for i=1:5 ,';
  25. '  k=k+1;';
  26. '  if k=3 then break,end,';
  27. '  for j=1:5,j,end,';
  28. 'end,';
  29. 'k=k+1'])
  30. if tt1()<>4 then pause,end
  31. comp(tt1)
  32. if tt1()<>4 then pause,end
  33.  
  34. // while
  35. //----------------------------------------
  36. deff('[k]=tt1()','k=0,while k<10 ,k=k+1;if k=3 then break,end,end,k=k+1')
  37. if tt1()<>4 then pause,end
  38. comp(tt1)
  39. if tt1()<>4 then pause,end
  40. clear tt1
  41.  
  42. deff('[k]=tt1()',[
  43. 'k=0,';
  44. 'while k<10 ,';
  45. '  k=k+1;';
  46. '  if k=3 then break,end,';
  47. '  if k=-1 then 1,end,';
  48. 'end,k=k+1'])
  49. if tt1()<>4 then pause,end
  50. comp(tt1)
  51. if tt1()<>4 then pause,end
  52.  
  53. clear tt1
  54.  
  55. deff('[k]=tt1()',[
  56. 'k=0,';
  57. 'while k<10 ,';
  58. '  k=k+1;';
  59. '  if k=3 then break,end,';
  60. '  for j=1:5,j,end,';
  61. 'end,';
  62. 'k=k+1'])
  63. if tt1()<>4 then pause,end
  64. comp(tt1)
  65. if tt1()<>4 then pause,end
  66. //
  67. // keyboard mode 
  68. //------------------------
  69. k=0;while k<10 ,k=k+1;if k=3 then break,end,end,k=k+1;
  70. if k<>4 then pause,end
  71.  
  72. k=0;while k<10 ,k=k+1;if k=3 then break,end,end,
  73. k=k+1;
  74. if k<>4 then pause,end
  75.  
  76. k=0;for  i=1:5 ,k=k+1;if k=3 then break,end,end,k=k+1;
  77. if k<>4 then pause,end
  78.  
  79. k=0;for  i=1:5 ,k=k+1;if k=3 then break,end,end,
  80. k=k+1;
  81. if k<>4 then pause,end
  82.  
  83. //
  84. k=0;while k<10,if k=0 then break,end,k=k+1;end,k=k+1;
  85. if k<>1 then pause,end
  86.  
  87. k=0;while k<10,if k=0 then break,end,k=k+1;end,
  88. k=k+1;
  89. if k<>1 then pause,end
  90.  
  91. k=0;for i=1:5,if k=0 then break,end,k=k+1;end,k=k+1;
  92. if k<>1 then pause,end
  93.  
  94. k=0;for i=1:5,if k=0 then break,end,k=k+1;end,
  95. k=k+1;
  96. if k<>1 then pause,end
  97.  
  98.